C 10 


RRR eR Re ee 
ee ee 
Ck ak ek ae ce ee oe ee a oe wee ane aed oe coe a rg 
ieee 


aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa acoa 
aaa aaa 
SoGO00OGOO00GO0G0G0G0R008aR 
So0O0O0GOGoOOG000000000a8Ra 
SOoGHKHGCHHGHAaHhaaeSaSaaaoaaa 
wud ada 
wutud Lk ee ha 
a Ld th ed 
dd A hd bad Ra dd ol 
ed bad Aad tu had 
bd a kd Lh Ah ed 
tks kd rezeeneey Ve TeCnee) 
ad Ld Ad kd Ad 
a Ld ad ed hs a 
aeeeered a as a wu 
ad kd ted bd Ld tad a bad 
kad LOS LD tad Ld Abs 


ee heed enone hoc seeLecsuelucivolveleulveseelvelvenvenveneey 
Se deed eke edn oho heeheesveLlehveleeseelvesvesvesuureulvulve) 
Shed eee heesueLvelue. UlveleelvelvsseeLlvelvulvesewreel 


*ef [LE®*1D**CHMSAVLIN 


2 
r 4 
2 
2 
2 
2 


CCCCCCCC HH HH MM MM SSSSSSSS AAAAAA VV VV LL IIIIII NN 
cccccccc HH HH MM MM SSSSSSSS AAAAAA VV VV LL III! NN 

cc HH HH MMMM MMMM SS Aa AA VV VV LL I NN 

cc HH HH MMMM MMMM SS AA AA VV VV LL I NN 

cc HH HH MM MM MM SS AA AA VV VV LL I 

cc HH HH MM MM MM SS AA AA VV VV LL I 

cc HHHHHHHHHH =MM MM SSSSSS AA AA VV VV LL I 

cc HHHHHHHHHH = MM MM SSSSSS AA AA VV VV LL I 

cc HH HH MM MM SS AAAAAAAAAA VV VV LL I NN 

cc HH HH MM MM SS AAAAAAAAAA VV ve LL I NN 

cc HH HH MM MM SS AA AA VV VV LL I NN 

cc HH HH MM MM SS AA AA VW VV LL I NN 
CCCCCCCC =H HH MM MM SSSSSSSS AA AA VV LLLLLLLLLL III] NN 
CCCCCCCC HH HH MM MM SSSSSSSS AA AB VV LLLLLLLLLL III! NN 

LL IIIIII SSSSSSSS 

LL III1I] SSSSSSSS 

LL I] Ss 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL Ij SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL IIIII] SSSSSSSS 

LLLLLLLLLL HII] SSSSSSSS 


. 
oe 
. 
e 
. 
6 
. 
+ 
. 
. 
. 
e 
7 
o 
+ 
. 
7 
a 
. 
e 
. 
. 
. 
. 
. 
. 
. 
° 
a 
o 
~ 
e 
. 
o 
& 
° 
. 
. 
+ 
o 
2 
. 
a 
e 
e 
© 
o 
. 
e 
. 
a 
. 
a 
. 
Oo 
. 
oO 
. 
o 
o 
a 
7 
o 
. 
7 
a 
ca 
. 
o 
. 
on 
o 
e 
. 
e 
. 
eo 
o 
. 
a 
. 
oe 
. 
o 
. 
e 
- 
e 
7 
e 
. 
oe 
7 
° 
. 
. 
. 
e 


Bee Se Oe Fe Se Be Se Ge Fe Ge Se Ge SH Se BH Se FH SH Oe Oe Oe Oe Os Se Se He Be Se Be Oe Se Oe Se Oe Se Ss Se Se Oe Se FHSS oe Oe Be ee 


BRERA LEL SE SWWWWWIIinoponononononononony 3 2 oe oo 
ODWNAWVE WN SO DDNAUEWN $C ODNAUEWN QA OUODNOULSWNR OOO NOUSWNS 


EDTSCHMSAVLIN = save a Line 


oooooo 


Cooooooceco 
Sooooocoeocoo 


~- 


a ee ed ed ed ed 
. 


ZTITLE "EDTSCHMSAVLIN = save a Line’ 
E EDTSCHMSAVLIN ' Save a Line 
poent = 'v04-000' ! File: CHMSAVLIN.BLI Edit: 
BEGIN 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND og Lt 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE SF a etnen OTICE. THIS SOF TWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE P ROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
a a aS NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eeRPORAT ibn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS 
SOFTWARE ON EQUIPMENT WHIC 


BILITY FOR THE USE OR RELIABILITY OF ITS 
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H IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: EDT == The DEC Standard Editor 
ABSTRACT: 


This module saves a Line in the auxiliary buffer. 


ENVIRONMENT: Runs at any access mode - AST reentrant 


AUTHOR: Bob Kushlis, CREATION DATE: Unknown 
MODIFIED BY: 


1-001 = Original. DJS 04-Feb-1981. te module was created b 


extracting the routine EDTS$SAV_LN aren module CHANGE .BLI. 


1-002 - Regularize headers. JBS Os eMate 19 
1-003 - Improve the appearance of the Listing. JBS 13-Jun-1983 
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s-32 V4.0-74 
MSAVLIN.BLI; 
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! Save a Line in the auxiliary buffer 
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a 
EDTSCHMSAVLIN EDTSCHMSAVLIN = save a Line ibs -1984 00:09:2 AX-11 Bliss-32 V4.0-74 
F04+000 EDTSSSAV_LN = save a Line 12-808-1 382 99:93:28 feDT.sre CHASANLIN L144 
; : Oe : 1 ZSBTTL ‘EDTSSSAV_LN = save a Line’ 
; $ 6 § 1 GLOBAL ROUTINE EDTSSSAV_LN ( ' Save a Line 
: 06 1 LINE, ! Address of the Line to save 
; 8 be26 1 LEN ! Length of that Line 
; «889 659 1 ) : NOVALUE = 
; 0660 1 
5; Vi 0661 1 !++ 
; 35 pees : FUNCTIONAL DESCRIPTION: 
; 664 1! This routine saves a Line to the auxiliary buffer if there is one. 
; 9 665 1! The routine is called by the deletes, and the aux buffer will be set 
3 4 bee : } if it is really a cut command rather than a delete. 
; 98 0668 1 ! FORMAL PARAMETERS: 
>; 99 0669 1! 
: 100 0670 1! LINE Address of the Line to save 
: 101 0671 1! E 
; 106 0672 1! LEN Length of the Line to save 
s 10 0673 1! 
: 104 0674 1 ! IMPLICIT INPUTS: 
; 105 0675 1! 
; 106 0676 1! EDT$$A_ALT_BUF 
: 107 0677 1! 
; 108 0678 1 ! IMPLICIT OUTPUTS: 
; 109 0679 1! 
; 110 0680 1! NONE 
s 93 0681 1! 
; \\g 068 1 ! ROUTINE VALUE: 
Way 0683 1! 
z (116 0684 1! NONE 
3 «115 0685 1! 
: 116 0686 1 ! SIDE EFFECTS: 
s V17 0687 1! 
; «6118 0688 1! NONE 
3 «6119 0689 1! 
: 120 0690 1 !-- 
: 121 0691 1 
3 1¢¢ 069 BEGIN 
: Ye 069 
3 is 0694 EXTERNAL ROUTINE 
s Ye 0695 EDTSSINS_LN, ! Insert a Line into buffer 
; 136 0696 EDTSSRD_CURLN; ' Get the current Line 
; 128 98 eaten, 
. Vey 0699 EDTSSA_ALT_BUF : REF TBCB_BLOCK, ! Alternate buffer used for cut/paste. 
3 : : 3700 EDTSSA_CUR_BUF : REF TBCB_BLOCK; ! The current buffer tbcb 
3 132 0708 OCAL 
| 70 SAVE_TBCB; 
ih Me 
3; «6135 705 '¢ 
; 136 7 ! See if there is an aux buffer. 
: 138 ron 5 
: 139 709 IF (.EDTS$$A_ALT_BUF EQL 0) THEN RETURN; 
: 140 0710 
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SAV_LN = save a Line 
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14 
Switch to the aux buffer. 


SAVE TBCB = .EDTS$SA_CUR_BUF; 
EDTSSA_CUR_BUF = .EDTSSA_ALT_BUF; 


i "Read the current Line. 
EDTSSRD_CURLN (); 

i Insert the Line to be saved. 

* EDTSSINS_LN (.LINE, .LEN); 

;_And switch back to the main buffer. 


EDTSSA_CUR_BUF = .SAVE_TBCB; 
EDTSSRD_CURLN Q; 


COOOCCOCCOGOOCCOCOCOOCOCOCOCOOoOO mm 


— et te 4 2 a a a 
MAMMA UMIUIUIVIVLE BEE EEE EE 
DONANEWROOODNOUE WR 
NNN OO 
RRPOROPONOPoNonon SSS 
ODONAOVES WN" OVOONOULS Ww we 


So 
oO 


ono *MOO-—-9oC oOo 
FSWDoWoIWDOoowommna 
SOOoQoQooooooocoo 
oOoooooooooooeo 
Ooooooooeoooo 


AWN] 2232200 


7E 04 
000000006 09 


Ouio FOU —-OOoO 
SOMMOOCOWP,rOOCO 


; Routine Size: 52 bytes, Routine Base: 


1 
1 !<BLF /PAGE> 


_EDTSCODE + 0000 


AX-11 Bliss-32 V4.0-74 
EDT. SRCICHMSAVLIN.BLI; (3) 


of routine EDTS$SAV_LN 


.TITLE EDTSCHMSAVLIN EDTSCHMSAVLIN = save a Line 
IDENT \V04-000\ 
.EXTRN EDTSSINS_LN, EDT$S$RD_CURLN 
-EXTRN EDTSS$A_ACT_BUF, EDT$SA_CUR_BUF 
-PSECT _EDTSCODE.NOWRT, SHR, PIC,2 
00 -ENTRY EDTSSSAV_LN, Save R2,R3,R4 3 0656 
2 MOVAB EDTS$$RD_CURLN, RS : 
9 MOVAB EDTS$A_CUR_BUF, R3 ; 
0 MOVL EDTS$A_ALT_BUF, RO : 
7 BEQL 1$ 3 
9 MOVL EDT$$A_CUR_BUF, SAVE_TBCB : 0714 
C MOVL RO, EDT$$A~CUR_BUF : 0715 
F CALLS #0, EDTSSRB_CURLN ; 0719 
2 MOva LIN -(SP) 3 0723 
6 CALLS #2, EDT$SINS_LN : 
D OVL SAVE_TBCB, EBTSSA_CUR_BUF 3 0727 
0 CALLS #0, EDT$$RD_CURLN : 0728 
1$: ET : 0729 


; El d Time: 00:12.3 
 Flerrbatens, Se 


: Lexenes/CPU-Min: 13093 
; Y Used: 61 pages 
: — ation Complete 


dD 9 
SCHMSAVLIN EDTSCHMSAVLIN = save a Line 16-Sep-1984 00:09: AX-11 Bliss-32 V4.0-74 Page 5) 
vO4=000 EDTSSSAV_LN = save a Line a 382 19:93:28 EDT. SRCJCHMSAVLIN.BLI; 4 : (4). 
; 165 ores } END ! of module EDTSCHMSAVLIN 
; «165 7 0 ELUDOM 
: PSECT SUMMARY | 
3 Name Bytes Attributes 
; JEDTSCODE 52 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) | 
: Library Statistics 
3 eon----- Symbols -------- Pages Processing | 
: File Total Loaded Percent Mapped Time | 
: eitiitere § repr. ~SRCJEDT.132;1 377 24 6 40 00:00.2 
: ~$255$DUA EDT. SRCJPSECTS.L32;1 2 1 50 7 00:00.1 | 
| 
| 
: COMMAND QUALIFIERS | 
; lb a - tuaaheaensaatahttelaatecccthatsnnataiinntella da ielalectatac ice MSRC$: CHMSAVLIN.BLI/UPDATE=(ENHS$:C | 
; Size: 52 code + 0 data bytes 
; Run Time: 00:09.7 
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